home *** CD-ROM | disk | FTP | other *** search
- REM $INCLUDE: 'fastgraf.bi'
-
- DEFINT A-Z
-
- IF FGtestmode(13,1) = 0 THEN
- PRINT "This program requires a 320 x 200 EGA graphics mode."
- STOP
- END IF
-
- OldMode = FGgetmode
- FGsetmode 13
-
- FGsetcolor 9
- FGlocate 0, 38
- FGtext "resize", 6
- FGwaitkey
-
- FGerase
- FGresize 640, 200
- FGsetcolor 10
- FGlocate 0, 38
- FGtext "resize", 6
- FGwaitkey
-
- FGsetmode OldMode
- FGreset
-
- END